home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 January / macformat-020.iso / Shareware City / Developers / OutOfPhase1.01Source / OutOfPhase Folder / EditCommandParameters.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-10-01  |  35.2 KB  |  909 lines  |  [TEXT/KAHL]
  1. /* EditCommandParameters.c */
  2. /*****************************************************************************/
  3. /*                                                                           */
  4. /*    Out Of Phase:  Digital Music Synthesis on General Purpose Computers    */
  5. /*    Copyright (C) 1994  Thomas R. Lawrence                                 */
  6. /*                                                                           */
  7. /*    This program is free software; you can redistribute it and/or modify   */
  8. /*    it under the terms of the GNU General Public License as published by   */
  9. /*    the Free Software Foundation; either version 2 of the License, or      */
  10. /*    (at your option) any later version.                                    */
  11. /*                                                                           */
  12. /*    This program is distributed in the hope that it will be useful,        */
  13. /*    but WITHOUT ANY WARRANTY; without even the implied warranty of         */
  14. /*    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          */
  15. /*    GNU General Public License for more details.                           */
  16. /*                                                                           */
  17. /*    You should have received a copy of the GNU General Public License      */
  18. /*    along with this program; if not, write to the Free Software            */
  19. /*    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.              */
  20. /*                                                                           */
  21. /*    Thomas R. Lawrence can be reached at tomlaw@world.std.com.             */
  22. /*                                                                           */
  23. /*****************************************************************************/
  24.  
  25. #include "MiscInfo.h"
  26. #include "Audit.h"
  27. #include "Debug.h"
  28. #include "Definitions.h"
  29.  
  30. #include "EditCommandParameters.h"
  31. #include "NoteObject.h"
  32. #include "Memory.h"
  33. #include "NoteAttributeDialog.h"
  34. #include "BinaryCodedDecimal.h"
  35. #include "TrackObject.h"
  36. #include "DataMunging.h"
  37. #include "CmdDlgOneParam.h"
  38. #include "CmdDlgTwoParams.h"
  39. #include "CmdDlgOneBinaryChoice.h"
  40. #include "CmdDlgOneString.h"
  41.  
  42.  
  43. /* dialog box for command with <1xs> parameter */
  44. static MyBoolean    OneXS(NoteObjectRec* NoteCommand, char* Prompt, char* Box1Text)
  45.     {
  46.         double                    OneDouble;
  47.         MyBoolean                ChangedFlag;
  48.  
  49.         OneDouble = SmallExtBCD2Double(GetCommandNumericArg1(NoteCommand));
  50.         ChangedFlag = CommandDialogOneParam(Prompt,Box1Text,&OneDouble);
  51.         if (ChangedFlag)
  52.             {
  53.                 PutCommandNumericArg1(NoteCommand,Double2SmallExtBCD(OneDouble));
  54.             }
  55.         return ChangedFlag;
  56.     }
  57.  
  58.  
  59. /* dialog box for command with <1xs> and <2xs> parameters */
  60. static MyBoolean    TwoXS(NoteObjectRec* NoteCommand, char* Prompt, char* Box1Text,
  61.                                         char* Box2Text)
  62.     {
  63.         double                    OneDouble;
  64.         double                    TwoDouble;
  65.         MyBoolean                ChangedFlag;
  66.  
  67.         OneDouble = SmallExtBCD2Double(GetCommandNumericArg1(NoteCommand));
  68.         TwoDouble = SmallExtBCD2Double(GetCommandNumericArg2(NoteCommand));
  69.         ChangedFlag = CommandDialogTwoParams(Prompt,Box1Text,&OneDouble,Box2Text,&TwoDouble);
  70.         if (ChangedFlag)
  71.             {
  72.                 PutCommandNumericArg1(NoteCommand,Double2SmallExtBCD(OneDouble));
  73.                 PutCommandNumericArg2(NoteCommand,Double2SmallExtBCD(TwoDouble));
  74.             }
  75.         return ChangedFlag;
  76.     }
  77.  
  78.  
  79. /* dialog box for command with <1l> parameter */
  80. static MyBoolean    OneL(NoteObjectRec* NoteCommand, char* Prompt, char* Box1Text)
  81.     {
  82.         double                    OneDouble;
  83.         MyBoolean                ChangedFlag;
  84.  
  85.         OneDouble = LargeBCD2Double(GetCommandNumericArg1(NoteCommand));
  86.         ChangedFlag = CommandDialogOneParam(Prompt,Box1Text,&OneDouble);
  87.         if (ChangedFlag)
  88.             {
  89.                 PutCommandNumericArg1(NoteCommand,Double2LargeBCD(OneDouble));
  90.             }
  91.         return ChangedFlag;
  92.     }
  93.  
  94.  
  95. /* dialog box for 2 param command with first param <1l> and second <2xs> */
  96. static MyBoolean    OneLTwoXS(NoteObjectRec* NoteCommand, char* Prompt, char* Box1Text,
  97.                                         char* Box2Text)
  98.     {
  99.         double                    OneDouble;
  100.         double                    TwoDouble;
  101.         MyBoolean                ChangedFlag;
  102.  
  103.         OneDouble = LargeBCD2Double(GetCommandNumericArg1(NoteCommand));
  104.         TwoDouble = SmallExtBCD2Double(GetCommandNumericArg2(NoteCommand));
  105.         ChangedFlag = CommandDialogTwoParams(Prompt,Box1Text,&OneDouble,Box2Text,&TwoDouble);
  106.         if (ChangedFlag)
  107.             {
  108.                 PutCommandNumericArg1(NoteCommand,Double2LargeBCD(OneDouble));
  109.                 PutCommandNumericArg2(NoteCommand,Double2SmallExtBCD(TwoDouble));
  110.             }
  111.         return ChangedFlag;
  112.     }
  113.  
  114.  
  115. /* dialog box where the value being negative means one thing and the value */
  116. /* being zero or positive means another. */
  117. static MyBoolean    OneBool(NoteObjectRec* NoteCommand, char* Prompt, char* Negative,
  118.                                         char* ZeroOrPositive)
  119.     {
  120.         MyBoolean                Flag;
  121.         MyBoolean                ChangedFlag;
  122.  
  123.         if (GetCommandNumericArg1(NoteCommand) < 0)
  124.             {
  125.                 /* negative */
  126.                 Flag = True;
  127.             }
  128.          else
  129.             {
  130.                 /* zero or positive */
  131.                 Flag = False;
  132.             }
  133.         ChangedFlag = CommandDialogOneBinaryChoice(Prompt,Negative,ZeroOrPositive,&Flag);
  134.         if (ChangedFlag)
  135.             {
  136.                 if (Flag)
  137.                     {
  138.                         /* true = negative */
  139.                         PutCommandNumericArg1(NoteCommand,-1);
  140.                     }
  141.                  else
  142.                     {
  143.                         /* false = zero or positive */
  144.                         PutCommandNumericArg1(NoteCommand,0);
  145.                     }
  146.             }
  147.         return ChangedFlag;
  148.     }
  149.  
  150.  
  151. /* dialog box for command with <1i> and <2i> parameters */
  152. static MyBoolean    TwoI(NoteObjectRec* NoteCommand, char* Prompt, char* Box1Text,
  153.                                         char* Box2Text)
  154.     {
  155.         double                    OneDouble;
  156.         double                    TwoDouble;
  157.         MyBoolean                ChangedFlag;
  158.  
  159.         OneDouble = GetCommandNumericArg1(NoteCommand);
  160.         TwoDouble = GetCommandNumericArg2(NoteCommand);
  161.         ChangedFlag = CommandDialogTwoParams(Prompt,Box1Text,&OneDouble,Box2Text,&TwoDouble);
  162.         if (ChangedFlag)
  163.             {
  164.                 PutCommandNumericArg1(NoteCommand,(long)OneDouble);
  165.                 PutCommandNumericArg2(NoteCommand,(long)TwoDouble);
  166.             }
  167.         return ChangedFlag;
  168.     }
  169.  
  170.  
  171. /* dialog box for command with <1s> parameter */
  172. static MyBoolean    OneStr(NoteObjectRec* NoteCommand, char* Prompt, char* Box1Text)
  173.     {
  174.         char*                        StringParameter;
  175.         MyBoolean                ChangedFlag;
  176.  
  177.         StringParameter = GetCommandStringArg(NoteCommand);
  178.         if (StringParameter == NIL)
  179.             {
  180.                 StringParameter = AllocPtrCanFail(0,"OneStr");
  181.                 if (StringParameter == NIL)
  182.                     {
  183.                         return False;
  184.                     }
  185.             }
  186.          else
  187.             {
  188.                 StringParameter = CopyPtr(StringParameter);
  189.                 if (StringParameter == NIL)
  190.                     {
  191.                         return False;
  192.                     }
  193.             }
  194.         ChangedFlag = CommandDialogOneString(Prompt,Box1Text,&StringParameter);
  195.         if (ChangedFlag)
  196.             {
  197.                 PutCommandStringArg(NoteCommand,StringParameter);
  198.             }
  199.          else
  200.             {
  201.                 ReleasePtr(StringParameter);
  202.             }
  203.         return ChangedFlag;
  204.     }
  205.  
  206.  
  207. /* dialog box for command with <1l> parameter */
  208. static MyBoolean    OneI(NoteObjectRec* NoteCommand, char* Prompt, char* Box1Text)
  209.     {
  210.         double                    OneDouble;
  211.         MyBoolean                ChangedFlag;
  212.  
  213.         OneDouble = GetCommandNumericArg1(NoteCommand);
  214.         ChangedFlag = CommandDialogOneParam(Prompt,Box1Text,&OneDouble);
  215.         if (ChangedFlag)
  216.             {
  217.                 PutCommandNumericArg1(NoteCommand,OneDouble);
  218.             }
  219.         return ChangedFlag;
  220.     }
  221.  
  222.  
  223. /* present a dialog box appropriate to the object type which allows the */
  224. /* user to edit the object's attributes */
  225. void                            EditNoteOrCommandAttributes(struct NoteObjectRec* NoteCommand,
  226.                                         TrackObjectRec* Track)
  227.     {
  228.         CheckPtrExistence(NoteCommand);
  229.         if (!IsItACommand(NoteCommand))
  230.             {
  231.                 /* present note attribute editing box */
  232.                 EditNoteParametersDialog(NoteCommand,Track);
  233.             }
  234.          else
  235.             {
  236.                 MyBoolean                SomethingChanged EXECUTE(= -15431);
  237.  
  238.                 /* figure out which command edit box we should present */
  239.                 switch (GetCommandOpcode(NoteCommand))
  240.                     {
  241.                         /* restore the tempo to the default for the score */
  242.                         case eCmdRestoreTempo:
  243.                             SomethingChanged = False; /* there are no parameters to edit */
  244.                             break;
  245.  
  246.                         /* set tempo to <1xs> number of beats per second */
  247.                         case eCmdSetTempo:
  248.                             SomethingChanged = OneXS(NoteCommand,"Set Tempo:  Enter a new "
  249.                                 "tempo value.","Beats per Minute:");
  250.                             break;
  251.  
  252.                         /* add <1xs> to the tempo control */
  253.                         case eCmdIncTempo:
  254.                             SomethingChanged = OneXS(NoteCommand,"Increment Tempo:  Enter the "
  255.                                 "number of beats per minute to change the tempo by.","BPM Adjustment:");
  256.                             break;
  257.  
  258.                         /* <1xs> = target tempo, <2xs> = # of beats to reach it */
  259.                         case eCmdSweepTempoAbs:
  260.                             SomethingChanged = TwoXS(NoteCommand,"Sweep Tempo Absolute:  Enter new "
  261.                                 "tempo destination value and the number of beats to spread the "
  262.                                 "transition across.","Destination BPM:","Duration:");
  263.                             break;
  264.  
  265.                         /* <1xs> = target adjust (add to tempo), <2xs> = # beats */
  266.                         case eCmdSweepTempoRel:
  267.                             SomethingChanged = TwoXS(NoteCommand,"Sweep Tempo Relative:  Enter a "
  268.                                 "tempo adjustment value and the number of beats to spread the "
  269.                                 "transition across.","BPM Adjustment:","Duration:");
  270.                             break;
  271.  
  272.                         /* restore stereo position to channel's default */
  273.                         case eCmdRestoreStereoPosition:
  274.                             SomethingChanged = False; /* no attributes */
  275.                             break;
  276.  
  277.                         /* set position in channel <1l>: -1 = left, 1 = right */
  278.                         case eCmdSetStereoPosition:
  279.                             SomethingChanged = OneL(NoteCommand,"Set Stereo Position:  Enter a "
  280.                                 "stereo position value (-1 = hard left ... 1 = hard right).",
  281.                                 "Stereo Position:");
  282.                             break;
  283.  
  284.                         /* adjust stereo position by adding <1l> */
  285.                         case eCmdIncStereoPosition:
  286.                             SomethingChanged = OneL(NoteCommand,"Adjust Stereo Position:  Enter an "
  287.                                 "adjustment value for the stereo position (negative values move the "
  288.                                 "channel left; positive values move the channel right).",
  289.                                 "Stereo Position Adjustment:");
  290.                             break;
  291.  
  292.                         /* <1l> = new pos, <2xs> = # of beats to get there */
  293.                         case eCmdSweepStereoAbs:
  294.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Stereo Absolute:  Enter "
  295.                                 "a destination value for the stereo position and the number of beats "
  296.                                 "to spread the transition across.","Destination Stereo Position:",
  297.                                 "Duration:");
  298.                             break;
  299.  
  300.                         /* <1l> = pos adjust, <2xs> = # beats to get there */
  301.                         case eCmdSweepStereoRel:
  302.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Stereo Relative:  Enter "
  303.                                 "a stereo position adjustment value and the number of beats to "
  304.                                 "spread the transition across.","Stereo Position Adjustment:",
  305.                                 "Duration:");
  306.                             break;
  307.  
  308.                         /* restore surround position to channel's default */
  309.                         case eCmdRestoreSurroundPosition:
  310.                             SomethingChanged = False; /* no attributes */
  311.                             break;
  312.  
  313.                         /* set surround position in channel <1l>: 1 = front, -1 = rear */
  314.                         case eCmdSetSurroundPosition:
  315.                             SomethingChanged = OneL(NoteCommand,"Set Surround Position:  Enter a "
  316.                                 "surround position value (1 = front ... -1 = rear).",
  317.                                 "Surround Position:");
  318.                             break;
  319.  
  320.                         /* adjust surround position by adding <1l> */
  321.                         case eCmdIncSurroundPosition:
  322.                             SomethingChanged = OneL(NoteCommand,"Adjust Surround Position:  Enter an "
  323.                                 "adjustment value for the surround position (positive values move the "
  324.                                 "channel forward; negative values move the channel backward).",
  325.                                 "Surround Position Adjustment:");
  326.                             break;
  327.  
  328.                         /* <1l> = new pos, <2xs> = # of beats to get there */
  329.                         case eCmdSweepSurroundAbs:
  330.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Surround Absolute:  Enter "
  331.                                 "a destination value for the surround position and the number of beats "
  332.                                 "to spread the transition across.","Destination Surround Position:",
  333.                                 "Duration:");
  334.                             break;
  335.  
  336.                         /* <1l> = pos adjust, <2xs> = # beats to get there */
  337.                         case eCmdSweepSurroundRel:
  338.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Surround Relative:  Enter "
  339.                                 "a surround position adjustment value and the number of beats to "
  340.                                 "spread the transition across.","Surround Position Adjustment:",
  341.                                 "Duration:");
  342.                             break;
  343.  
  344.                         /* restore the volume to the default for the channel */
  345.                         case eCmdRestoreVolume:
  346.                             SomethingChanged = False; /* no attributes to edit */
  347.                             break;
  348.  
  349.                         /* set the volume to the specified level (0..1) in <1l> */
  350.                         case eCmdSetVolume:
  351.                             SomethingChanged = OneL(NoteCommand,"Set Volume:  Enter an overall "
  352.                                 "volume level value (0 = silent ... 1 = full volume).","Volume:");
  353.                             break;
  354.  
  355.                         /* add <1l> to the volume control */
  356.                         case eCmdIncVolume:
  357.                             SomethingChanged = OneL(NoteCommand,"Adjust Volume:  Enter a volume "
  358.                                 "adjustment value (values less than 1 make sound quieter, values "
  359.                                 "greater than 1 make sound louder).","Volume Adjustment:");
  360.                             break;
  361.  
  362.                         /* <1l> = new volume, <2xs> = # of beats to reach it */
  363.                         case eCmdSweepVolumeAbs:
  364.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Volume Absolute:  Enter "
  365.                                 "a new volume value and the number of beats to spread the transition "
  366.                                 "across.","Destination Volume:","Duration:");
  367.                             break;
  368.  
  369.                         /* <1l> = volume adjust, <2xs> = # of beats to reach it */
  370.                         case eCmdSweepVolumeRel:
  371.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Volume Relative:  Enter "
  372.                                 "a volume adjustment value and the number of beats to spread the "
  373.                                 "transition across.","Volume Adjustment:","Duration:");
  374.                             break;
  375.  
  376.                         /* restore release point to master default */
  377.                         case eCmdRestoreReleasePoint1:
  378.                             SomethingChanged = False; /* no attributes to edit */
  379.                             break;
  380.  
  381.                         /* set the default release point to new value <1l> */
  382.                         case eCmdSetReleasePoint1:
  383.                             SomethingChanged = OneL(NoteCommand,"Set Release Point 1:  Enter the "
  384.                                 "first release point location (0 = start of note; 1 = end of note; "
  385.                                 "values beyond range are allowed).","Release Point 1:");
  386.                             break;
  387.  
  388.                         /* add <1l> to default release point for adjustment */
  389.                         case eCmdIncReleasePoint1:
  390.                             SomethingChanged = OneL(NoteCommand,"Adjust Release Point 1:  Enter an "
  391.                                 "adjustment value for the first release point (negative values move "
  392.                                 "the release earlier; positive values move it later).",
  393.                                 "Release Point 1 Adjust:");
  394.                             break;
  395.  
  396.                         /* if <1i> is < 0, then from start, else from end of note */
  397.                         case eCmdReleasePointOrigin1:
  398.                             SomethingChanged = OneBool(NoteCommand,"Release Point 1 Origin:  Choose "
  399.                                 "where the first release point should be measured from.",
  400.                                 "From Start of Note","From End of Note");
  401.                             break;
  402.  
  403.                         /* <1l> = new release, <2xs> = # of beats to get there */
  404.                         case eCmdSweepReleaseAbs1:
  405.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Release Point 1 Absolute:"
  406.                                 "  Enter a destination time for the first release point and the "
  407.                                 "number of beats to spread the transition across.","Release Point 1:",
  408.                                 "Duration:");
  409.                             break;
  410.  
  411.                         /* <1l> = release adjust, <2xs> = # of beats to get there */
  412.                         case eCmdSweepReleaseRel1:
  413.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Release Point 1 Relative:"
  414.                                 "  Enter an adjustment value for the first release point and the "
  415.                                 "number of beats to spread the transition across.",
  416.                                 "Release Point 1 Adjust:","Duration:");
  417.                             break;
  418.  
  419.                         /* restore release point to master default */
  420.                         case eCmdRestoreReleasePoint2:
  421.                             SomethingChanged = False; /* no parameters to edit */
  422.                             break;
  423.  
  424.                         /* set the default release point to new value <1l> */
  425.                         case eCmdSetReleasePoint2:
  426.                             SomethingChanged = OneL(NoteCommand,"Set Release Point 2:  Enter the "
  427.                                 "second release point location (0 = start of note; 1 = end of note; "
  428.                                 "values beyond range are allowed).","Release Point 2:");
  429.                             break;
  430.  
  431.                         /* add <1l> to default release point for adjustment */
  432.                         case eCmdIncReleasePoint2:
  433.                             SomethingChanged = OneL(NoteCommand,"Adjust Release Point 2:  Enter an "
  434.                                 "adjustment value for the second release point (negative values move "
  435.                                 "the release earlier; positive values move it later).",
  436.                                 "Release Point 2 Adjust:");
  437.                             break;
  438.  
  439.                         /* if <1i> is < 0, then from start, else from end of note */
  440.                         case eCmdReleasePointOrigin2:
  441.                             SomethingChanged = OneBool(NoteCommand,"Release Point 2 Origin:  Choose "
  442.                                 "where the second release point should be measured from.",
  443.                                 "From Start of Note","From End of Note");
  444.                             break;
  445.  
  446.                         /* <1l> = new release, <2xs> = # of beats to get there */
  447.                         case eCmdSweepReleaseAbs2:
  448.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Release Point 2 Absolute:"
  449.                                 "  Enter a destination time for the second release point and the "
  450.                                 "number of beats to spread the transition across.","Release Point 2:",
  451.                                 "Duration:");
  452.                             break;
  453.  
  454.                         /* <1l> = release adjust, <2xs> = # of beats to get there */
  455.                         case eCmdSweepReleaseRel2:
  456.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Release Point 2 Relative:"
  457.                                 "  Enter an adjustment value for the second release point and the "
  458.                                 "number of beats to spread the transition across.",
  459.                                 "Release Point 2 Adjust:","Duration:");
  460.                             break;
  461.  
  462.                         /* restore accent value to master default */
  463.                         case eCmdRestoreAccent1:
  464.                             SomethingChanged = False; /* no parameters to edit */
  465.                             break;
  466.  
  467.                         /* specify the new default accent in <1l> */
  468.                         case eCmdSetAccent1:
  469.                             SomethingChanged = OneL(NoteCommand,"Set Accent 1:  Enter an accent "
  470.                                 "factor (0 = normal; less than 0 = diminish; greater than 0 = "
  471.                                 "strengthen).","Accent 1:");
  472.                             break;
  473.  
  474.                         /* add <1l> to the default accent */
  475.                         case eCmdIncAccent1:
  476.                             SomethingChanged = OneL(NoteCommand,"Adjust Accent 1:  Enter an "
  477.                                 "adjustment value for the first accent (negative values diminish the "
  478.                                 "accent; positive values strengthen it).","Accent 1 Adjustment:");
  479.                             break;
  480.  
  481.                         /* <1l> = new accent, <2xs> = # of beats to get there */
  482.                         case eCmdSweepAccentAbs1:
  483.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Accent 1 Absolute:  "
  484.                                 "Enter an accent value and the number of beats to spread the "
  485.                                 "transition across.","Destination Accent 1:","Duration:");
  486.                             break;
  487.  
  488.                         /* <1l> = accent adjust, <2xs> = # of beats to get there */
  489.                         case eCmdSweepAccentRel1:
  490.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Accent 1 Relative:  "
  491.                                 "Enter an accent adjust value and the number of beats to spread the "
  492.                                 "transition across.","Accent 1 Adjust:","Duration:");
  493.                             break;
  494.  
  495.                         /* restore accent value to master default */
  496.                         case eCmdRestoreAccent2:
  497.                             SomethingChanged = False; /* no parameters to edit */
  498.                             break;
  499.  
  500.                         /* specify the new default accent in <1l> */
  501.                         case eCmdSetAccent2:
  502.                             SomethingChanged = OneL(NoteCommand,"Set Accent 2:  Enter an accent "
  503.                                 "factor (0 = normal; less than 0 = diminish; greater than 0 = "
  504.                                 "strengthen).","Accent 2:");
  505.                             break;
  506.  
  507.                         /* add <1l> to the default accent */
  508.                         case eCmdIncAccent2:
  509.                             SomethingChanged = OneL(NoteCommand,"Adjust Accent 2:  Enter an "
  510.                                 "adjustment value for the second accent (negative values diminish the "
  511.                                 "accent; positive values strengthen it).","Accent 2 Adjustment:");
  512.                             break;
  513.  
  514.                         /* <1l> = new accent, <2xs> = # of beats to get there */
  515.                         case eCmdSweepAccentAbs2:
  516.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Accent 2 Absolute:  "
  517.                                 "Enter an accent value and the number of beats to spread the "
  518.                                 "transition across.","Destination Accent 2:","Duration:");
  519.                             break;
  520.  
  521.                         /* <1l> = accent adjust, <2xs> = # of beats to get there */
  522.                         case eCmdSweepAccentRel2:
  523.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Accent 2 Relative:  "
  524.                                 "Enter an accent adjust value and the number of beats to spread the "
  525.                                 "transition across.","Accent 2 Adjust:","Duration:");
  526.                             break;
  527.  
  528.                         /* restore accent value to master default */
  529.                         case eCmdRestoreAccent3:
  530.                             SomethingChanged = False; /* no parameters to edit */
  531.                             break;
  532.  
  533.                         /* specify the new default accent in <1l> */
  534.                         case eCmdSetAccent3:
  535.                             SomethingChanged = OneL(NoteCommand,"Set Accent 3:  Enter an accent "
  536.                                 "factor (0 = normal; less than 0 = diminish; greater than 0 = "
  537.                                 "strengthen).","Accent 3:");
  538.                             break;
  539.  
  540.                         /* add <1l> to the default accent */
  541.                         case eCmdIncAccent3:
  542.                             SomethingChanged = OneL(NoteCommand,"Adjust Accent 3:  Enter an "
  543.                                 "adjustment value for the second accent (negative values diminish the "
  544.                                 "accent; positive values strengthen it).","Accent 3 Adjustment:");
  545.                             break;
  546.  
  547.                         /* <1l> = new accent, <2xs> = # of beats to get there */
  548.                         case eCmdSweepAccentAbs3:
  549.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Accent 3 Absolute:  "
  550.                                 "Enter an accent value and the number of beats to spread the "
  551.                                 "transition across.","Destination Accent 3:","Duration:");
  552.                             break;
  553.  
  554.                         /* <1l> = accent adjust, <2xs> = # of beats to get there */
  555.                         case eCmdSweepAccentRel3:
  556.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Accent 3 Relative:  "
  557.                                 "Enter an accent adjust value and the number of beats to spread the "
  558.                                 "transition across.","Accent 3 Adjust:","Duration:");
  559.                             break;
  560.  
  561.                         /* restore accent value to master default */
  562.                         case eCmdRestoreAccent4:
  563.                             SomethingChanged = False; /* no parameters to edit */
  564.                             break;
  565.  
  566.                         /* specify the new default accent in <1l> */
  567.                         case eCmdSetAccent4:
  568.                             SomethingChanged = OneL(NoteCommand,"Set Accent 4:  Enter an accent "
  569.                                 "factor (0 = normal; less than 0 = diminish; greater than 0 = "
  570.                                 "strengthen).","Accent 4:");
  571.                             break;
  572.  
  573.                         /* add <1l> to the default accent */
  574.                         case eCmdIncAccent4:
  575.                             SomethingChanged = OneL(NoteCommand,"Adjust Accent 4:  Enter an "
  576.                                 "adjustment value for the fourth accent (negative values diminish the "
  577.                                 "accent; positive values strengthen it).","Accent 4 Adjustment:");
  578.                             break;
  579.  
  580.                         /* <1l> = new accent, <2xs> = # of beats to get there */
  581.                         case eCmdSweepAccentAbs4:
  582.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Accent 3 Absolute:  "
  583.                                 "Enter an accent value and the number of beats to spread the "
  584.                                 "transition across.","Destination Accent 3:","Duration:");
  585.                             break;
  586.  
  587.                         /* <1l> = accent adjust, <2xs> = # of beats to get there */
  588.                         case eCmdSweepAccentRel4:
  589.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Accent 3 Relative:  "
  590.                                 "Enter an accent adjust value and the number of beats to spread the "
  591.                                 "transition across.","Accent 3 Adjust:","Duration:");
  592.                             break;
  593.  
  594.                         /* restore max pitch disp depth value to default */
  595.                         case eCmdRestorePitchDispDepth:
  596.                             SomethingChanged = False; /* no parameters to edit */
  597.                             break;
  598.  
  599.                         /* set new max pitch disp depth <1l> */
  600.                         case eCmdSetPitchDispDepth:
  601.                             SomethingChanged = OneL(NoteCommand,"Set Pitch Displacement Depth:  "
  602.                                 "Enter a new maximum pitch displacement depth.","Pitch Disp. Depth:");
  603.                             break;
  604.  
  605.                         /* add <1l> to the default pitch disp depth */
  606.                         case eCmdIncPitchDispDepth:
  607.                             SomethingChanged = OneL(NoteCommand,"Adjust Pitch Displacement Depth:  "
  608.                                 "Enter an adjustment for the maximum pitch displacement depth.",
  609.                                 "Pitch Disp. Depth Adjust:");
  610.                             break;
  611.  
  612.                         /* <1i>:  <0: Hertz, >=0: half-steps */
  613.                         case eCmdPitchDispDepthMode:
  614.                             SomethingChanged = OneBool(NoteCommand,"Pitch Displacement Depth Mode:  "
  615.                                 "Choose whether the pitch displacement depth will be interpreted as "
  616.                                 "Hertz or halfsteps.","Hertz","Halfsteps");
  617.                             break;
  618.  
  619.                         /* <1l> = new depth, <2xs> = # of beats */
  620.                         case eCmdSweepPitchDispDepthAbs:
  621.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Pitch Displacement Depth "
  622.                                 "Absolute:  Enter the target pitch displacement depth and the number "
  623.                                 "of beats to spread the transition across.","Dest. Pitch Disp. Depth:",
  624.                                 "Duration:");
  625.                             break;
  626.  
  627.                         /* <1l> = depth adjust, <2xs> = # of beats */
  628.                         case eCmdSweepPitchDispDepthRel:
  629.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Pitch Displacement Depth "
  630.                                 "Relative:  Enter an adjustment pitch displacement depth value and "
  631.                                 "the number of beats to spread the transition across.",
  632.                                 "Pitch Disp. Depth Adjust:","Duration:");
  633.                             break;
  634.  
  635.                         /* restore max pitch disp rate to the master default */
  636.                         case eCmdRestorePitchDispRate:
  637.                             SomethingChanged = False; /* no parameters to edit */
  638.                             break;
  639.  
  640.                         /* set new max pitch disp rate in seconds to <1l> */
  641.                         case eCmdSetPitchDispRate:
  642.                             SomethingChanged = OneL(NoteCommand,"Set Pitch Displacement Rate:  Enter "
  643.                                 "the maximum number of oscillations per second.",
  644.                                 "Pitch Displacement Rate:");
  645.                             break;
  646.  
  647.                         /* add <1l> to the default max pitch disp rate */
  648.                         case eCmdIncPitchDispRate:
  649.                             SomethingChanged = OneL(NoteCommand,"Adjust Pitch Displacement Rate:  "
  650.                                 "Enter an adjustment pitch displacement rate value.",
  651.                                 "Pitch Disp. Rate Adjust:");
  652.                             break;
  653.  
  654.                         /* <1l> = new rate, <2xs> = # of beats to get there */
  655.                         case eCmdSweepPitchDispRateAbs:
  656.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Pitch Displacement Rate "
  657.                                 "Absolute:  Enter a destination pitch displacement rate and the "
  658.                                 "number of beats to spread the transition across.",
  659.                                 "Dest. Pitch Disp. Rate:","Duration:");
  660.                             break;
  661.  
  662.                         /* <1l> = rate adjust, <2xs> = # of beats to get there */
  663.                         case eCmdSweepPitchDispRateRel:
  664.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Pitch Displacement Rate "
  665.                                 "Relative:  Enter an adjustment pitch displacement rate value and "
  666.                                 "the number of beats to spread the transition across.",
  667.                                 "Pitch Disp. Rate Adjust:","Duration:");
  668.                             break;
  669.  
  670.                         /* restore pitch disp start point to default */
  671.                         case eCmdRestorePitchDispStart:
  672.                             SomethingChanged = False; /* no parameters to edit */
  673.                             break;
  674.  
  675.                         /* set the start point to <1l> */
  676.                         case eCmdSetPitchDispStart:
  677.                             SomethingChanged = OneL(NoteCommand,"Set Pitch Displacement Start:  "
  678.                                 "Enter a new start point for the pitch displacement envelope (0 = "
  679.                                 "note start; 1 = note end; values out of range are allowed).",
  680.                                 "Pitch Disp. Start:");
  681.                             break;
  682.  
  683.                         /* add <1l> to the pitch disp start point */
  684.                         case eCmdIncPitchDispStart:
  685.                             SomethingChanged = OneL(NoteCommand,"Adjust Pitch Displacement Start:  "
  686.                                 "Enter an adjustment for the pitch displacement start point.",
  687.                                 "Pitch Disp. Start Adjust:");
  688.                             break;
  689.  
  690.                         /* specify the origin, same as for release point <1i> */
  691.                         case eCmdPitchDispStartOrigin:
  692.                             SomethingChanged = OneBool(NoteCommand,"Pitch Displacement Origin:  "
  693.                                 "Choose where the pitch displacement start point should be measured "
  694.                                 "from.","From Start of Note","From End of Note");
  695.                             break;
  696.  
  697.                         /* <1l> = new vib start, <2xs> = # of beats */
  698.                         case eCmdSweepPitchDispStartAbs:
  699.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Pitch Displacement "
  700.                                 "Start Absolute:  Enter a pitch displacement start point and the "
  701.                                 "number of beats to spread the transition across.",
  702.                                 "Dest. Pitch Disp. Start:","Duration:");
  703.                             break;
  704.  
  705.                         /* <1l> = vib adjust, <2xs> = # of beats */
  706.                         case eCmdSweepPitchDispStartRel:
  707.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Pitch Displacement "
  708.                                 "Start Relative:  Enter an adjustment pitch displacement start point "
  709.                                 "value and the number of beats to spread the transition across.",
  710.                                 "Pitch Disp. Start Adjust:","Duration:");
  711.                             break;
  712.  
  713.                         /* restore default hurryup factor */
  714.                         case eCmdRestoreHurryUp:
  715.                             SomethingChanged = False; /* no parameters to edit */
  716.                             break;
  717.  
  718.                         /* set the hurryup factor to <1l> */
  719.                         case eCmdSetHurryUp:
  720.                             SomethingChanged = OneL(NoteCommand,"Set Hurry-Up Factor:  Enter a "
  721.                                 "hurry-up factor (1 = normal; less than 1 = envelopes execute faster; "
  722.                                 "greater than 1 = envelopes execute more slowly).","Hurry-Up Factor:");
  723.                             break;
  724.  
  725.                         /* add <1l> to the hurryup factor */
  726.                         case eCmdIncHurryUp:
  727.                             SomethingChanged = OneL(NoteCommand,"Adjust Hurry-Up Factor:  Enter an "
  728.                                 "adjustment hurry-up value (negative values make envelopes execute "
  729.                                 "faster; positive values make envelopes execute more slowly).",
  730.                                 "Hurry-Up Adjustment:");
  731.                             break;
  732.  
  733.                         /* <1l> = new hurryup factor, <2xs> = # of beats */
  734.                         case eCmdSweepHurryUpAbs:
  735.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Hurry-Up Factor Absolute:"
  736.                                 "  Enter a hurry-up factor and the number of beats to spread the "
  737.                                 "transition across.","Destination Hurry-Up:","Duration:");
  738.                             break;
  739.  
  740.                         /* <1l> = hurryup adjust, <2xs> = # of beats to get there */
  741.                         case eCmdSweepHurryUpRel:
  742.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Hurry-Up Factor Relative:"
  743.                                 "  Enter an adjustment hurry-up value and the number of beats to "
  744.                                 "spread the transition across.","Hurry-Up Adjustment:","Duration:");
  745.                             break;
  746.  
  747.                         /* restore the default detune factor */
  748.                         case eCmdRestoreDetune:
  749.                             SomethingChanged = False; /* no parameters to edit */
  750.                             break;
  751.  
  752.                         /* set the detune factor to <1l> */
  753.                         case eCmdSetDetune:
  754.                             SomethingChanged = OneL(NoteCommand,"Set Detuning:  Enter a detuning "
  755.                                 "value (negative values decrease pitch; positive values increase "
  756.                                 "pitch).","Detuning:");
  757.                             break;
  758.  
  759.                         /* add <1l> to current detune factor */
  760.                         case eCmdIncDetune:
  761.                             SomethingChanged = OneL(NoteCommand,"Adjust Detuning:  Enter an "
  762.                                 "adjustment detuning value (negative values decrease pitch; positive "
  763.                                 "values increase pitch).","Detuning Adjustment:");
  764.                             break;
  765.  
  766.                         /* <1i>:  <0: Hertz, >=0: half-steps */
  767.                         case eCmdDetuneMode:
  768.                             SomethingChanged = OneBool(NoteCommand,"Detuning Mode:  Choose whether "
  769.                                 "the detuning value is in Hertz or halfsteps.","Hertz","Halfsteps");
  770.                             break;
  771.  
  772.                         /* <1l> = new detune, <2xs> = # of beats */
  773.                         case eCmdSweepDetuneAbs:
  774.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Detuning Absolute:  "
  775.                                 "Enter a destination detuning value and the number of beats to spread "
  776.                                 "the transition across.","Destination Detuning:","Duration:");
  777.                             break;
  778.  
  779.                         /* <1l> = detune adjust, <2xs> = # of beats */
  780.                         case eCmdSweepDetuneRel:
  781.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Detuning Relative:  "
  782.                                 "Enter an adjustment detuning value and the number of beats to spread "
  783.                                 "the transition across.","Detuning Adjustment:","Duration:");
  784.                             break;
  785.  
  786.                         /* restore the default early/late adjust value */
  787.                         case eCmdRestoreEarlyLateAdjust:
  788.                             SomethingChanged = False; /* no parameters to edit */
  789.                             break;
  790.  
  791.                         /* set the early/late adjust value to <1l> */
  792.                         case eCmdSetEarlyLateAdjust:
  793.                             SomethingChanged = OneL(NoteCommand,"Set Early/Late Hit Adjust:  Enter "
  794.                                 "an early/late hit time adjustment (negative values make note hit "
  795.                                 "earlier; positive values make note hit later).","Early/Late Adjust:");
  796.                             break;
  797.  
  798.                         /* add <1l> to the current early/late adjust value */
  799.                         case eCmdIncEarlyLateAdjust:
  800.                             SomethingChanged = OneL(NoteCommand,"Adjust Early/Late Hit Adjust:  Enter "
  801.                                 "an adjustment early/late hit time value (negative values make note "
  802.                                 "hit earlier; positive values make note hit later).",
  803.                                 "Early/Late Adjust:");
  804.                             break;
  805.  
  806.                         /* <1l> = new early/late adjust, <2xs> = # of beats */
  807.                         case eCmdSweepEarlyLateAbs:
  808.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Early/Late Hit Adjust "
  809.                                 "Absolute:  Enter a destination early/late hit time adjustment and "
  810.                                 "the number of beats to spread the transition across.",
  811.                                 "Destination Early/Late Adjust:","Duration:");
  812.                             break;
  813.  
  814.                         /* <1l> = early/late delta, <2xs> = # of beats to get there */
  815.                         case eCmdSweepEarlyLateRel:
  816.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Early/Late Hit Adjust "
  817.                                 "Relative:  Enter an adjustment early/late hit time value and the "
  818.                                 "number of beats to spread the transition across","Early/Late Adjust:",
  819.                                 "Duration:");
  820.                             break;
  821.  
  822.                         /* restore the default duration adjust value */
  823.                         case eCmdRestoreDurationAdjust:
  824.                             SomethingChanged = False; /* no parameters to edit */
  825.                             break;
  826.  
  827.                         /* set duration adjust value to <1l> */
  828.                         case eCmdSetDurationAdjust:
  829.                             SomethingChanged = OneL(NoteCommand,"Set Duration Adjust:  Enter a "
  830.                                 "duration adjust factor.","Duration Adjust:");
  831.                             break;
  832.  
  833.                         /* add <1l> to the current duration adjust value */
  834.                         case eCmdIncDurationAdjust:
  835.                             SomethingChanged = OneL(NoteCommand,"Adjust Duration Adjust:  Enter an "
  836.                                 "adjustment duration adjust factor (negative values make note shorter; "
  837.                                 "positive values make note longer).","Duratin Adjust:");
  838.                             break;
  839.  
  840.                         /* <1l> = new duration adjust, <2xs> = # of beats */
  841.                         case eCmdSweepDurationAbs:
  842.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Duration Adjust Absolute:"
  843.                                 "  Enter a destination duration adjust factor and the number of beats "
  844.                                 "to spread the transition across.","Dest. Duration Adjust:",
  845.                                 "Duration:");
  846.                             break;
  847.  
  848.                         /* <1l> = duration adjust delta, <2xs> = # of beats */
  849.                         case eCmdSweepDurationRel:
  850.                             SomethingChanged = OneLTwoXS(NoteCommand,"Sweep Duration Adjust Relative:"
  851.                                 "  Enter an adjustment duration adjust value and the number of beats "
  852.                                 "to spread the transition across.","Duration Adjust:","Duration:");
  853.                             break;
  854.  
  855.                         /* <1i>:  <0: Multiplicative, >=0: Additive */
  856.                         case eCmdDurationAdjustMode:
  857.                             SomethingChanged = OneBool(NoteCommand,"Set Duration Adjust Mode:  "
  858.                                 "Choose whether the duration adjust scales the note's duration "
  859.                                 "by multiplication or addition.","Multiply note's duration by value",
  860.                                 "Add note's duration and value");
  861.                             break;
  862.  
  863.                         /* <1i> = numerator, <2i> = denominator */
  864.                         case eCmdSetMeter:
  865.                             SomethingChanged = TwoI(NoteCommand,"Set Meter:  Enter the time "
  866.                                 "signature for measure bar placement.","Beats per Measure:",
  867.                                 "Beat Reference Note:");
  868.                             break;
  869.  
  870.                         /* <1i> = new number */
  871.                         case eCmdSetMeasureNumber:
  872.                             SomethingChanged = OneI(NoteCommand,"Set Measure Number:  Enter the "
  873.                                 "number for the next measure bar.","Next Measure Number:");
  874.                             break;
  875.  
  876.                         /* <1i> = new transpose value */
  877.                         case eCmdSetTranspose:
  878.                             SomethingChanged = OneI(NoteCommand,"Set Transpose:  enter the number "
  879.                                 "of half-steps to transpose by.","Half-steps:");
  880.                             break;
  881.  
  882.                         /* <1i> = adjusting transpose value */
  883.                         case eCmdAdjustTranspose:
  884.                             SomethingChanged = OneI(NoteCommand,"Adjust Transpose:  enter the "
  885.                                 "number of half-steps to adjust the current transpose "
  886.                                 "value by.","Half-steps:");
  887.                             break;
  888.  
  889.                         /* <string> holds the text */
  890.                         case eCmdMarker:
  891.                             SomethingChanged = OneStr(NoteCommand,"Comment:  Enter a new comment.",
  892.                                 "Comment:");
  893.                             break;
  894.  
  895.                         default:
  896.                             EXECUTE(PRERR(AllowResume,"EditNoteOrCommandAttributes:  unknown command"));
  897.                             break;
  898.                     }
  899.                 ERROR((SomethingChanged != False) && (SomethingChanged != True),PRERR(
  900.                     AllowResume,"EditNoteOrCommandAttributes:  SomethingChanged is neither "
  901.                     "true nor false."));
  902.  
  903.                 if (SomethingChanged)
  904.                     {
  905.                         TrackObjectAltered(Track,0);
  906.                     }
  907.             }
  908.     }
  909.